1 SYS65517
2 IFPEEK(781)=40THENMT$="":GOTO4
3 MT$=""
4 PRINTMT$:PRINT"[147]CASSETTE INDEX"
5 FORQ=1TO2000:NEXT
6 PRINT"[147]CASSETTE INDEX[146]":PRINT" TO USE THIS INDEX:"
7 PRINT"1 RESET CASSETTE"
8 PRINT"   COUNTER TO 000"
9 PRINT"2 FIND PROGRAM AND"
10 PRINT"   LOCATION"
11 PRINT"     (NEXT PAGE)"
12 PRINT"3 ADVANCE TAPE USING"
13 PRINT"   F.FWD, TO LOCATION"
14 PRINT"   DESIRED"
15 PRINT"4 STOP TAPE & FOLLOW"
16 PRINT"   LOAD[146] INSTRUCTIONS":PRINT" PRESS A KEY TO BEGIN[146]"
17 GETAN$:IFAN$=""GOTO17
18 PRINT"[147]CASSETTE INDEX[146]":PRINT"THIS CASSETTE HAS"
19 PRINT"THE FOLLOWING PROGRAMS"
20 PRINT"AT THE APPROXIMATE":PRINT"COUNTER READING SHOWN:"
21 READA$:READB$
22 PRINTA$TAB(14)B$
23 FORX=1TO8
24 READA$
25 IFA$="-1"GOTO33
26 READB$
27 IFB$="-1"GOTO33
28 PRINTTAB(1)A$TAB(16)B$
29 NEXTX
30 PRINT:PRINT"PRESS KEY TO CONTINUE"
31 GETP$:IFP$=""GOTO31
32 IFA$<>"-1"GOTO18:IFB$<>"-1"GOTO18
33 PRINT:PRINT"[144]  ** END OF INDEX **"MT$
34 PRINT"SHOW AGAIN (Y/N)";:INPUTAN$
35 IFAN$="Y"THENGOTO38
36 IFAN$<>"N"THENGOTO34
37 END
38 RESTORE:GOTO18
39 DATAPROGRAM NAME,COUNTER,DUMMY NAME01,000,DUMMY NAME02,000,DUMMY NAME03,000
40 DATADUMMY NAME04,000,DUMMY NAME05,000,DUMMY NAME06,000,DUMMY NAME07,000
41 DATADUMMY NAME08,000,PROGRAM NAME,COUNTER,DUMMY NAME09,000,DUMMY NAME10,000
42 DATADUMMY NAME11,000,DUMMY NAME12,000,DUMMY NAME13,000,DUMMY NAME14,000
43 DATADUMMY NAME15,000,DUMMY NAME16,000,PROGRAM NAME,COUNTER,DUMMY NAME17,000
44 DATADUMMY NAME18,000,DUMMY NAME19,000,DUMMY NAME20,000,DUMMY NAME21,000,-1